home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1998 May
/
Software of the Month Club 1998 May.iso
/
pc
/
dos
/
dtp
/
sparkl43
/
demo.bat
< prev
next >
Wrap
DOS Batch File
|
1998-03-03
|
17KB
|
540 lines
@echo off
echo off
cls
::
::============= Quit if REQUIRED files aren't here. =============
::
If Not Exist MainMnu1.Com goto _I_Can't_Go_On
If Not Exist MainMnu2.Com goto _I_Can't_Go_On
If Not Exist Features.Com goto _I_Can't_Go_On
If Not Exist VertMenu.Com goto _I_Can't_Go_On
If Not Exist HoriMenu.Com goto _I_Can't_Go_On
If Not Exist Phone.Com goto _I_Can't_Go_On
goto Welcome
:_I_Can't_Go_On
cls
echo A required file is NOT here. I can't continue.
echo ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
echo.
echo Run Demo.Bat from the drive/directory containing: MainMnu1.Com, MainMnu2.Com,
echo Phone.Com, VertMenu.Com, HoriMenu.Com, Features.Com and SS.Exe.
SS 4 9 2 4 221 /Can't Find
SS 4 17 1 12 221 /Main Files
SS 15 25 23 112 3
goto TheEnd
::
:Welcome
::==== !!! Welcome to Sparkle ── the ULTIMATE batch file enhancer !!!
:: ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
ss -4 1 13 9 219 /Welcome
ss -4 10 32 11 178 /to
ss -4 19 13 11 219 /Sparkle
ss 1 10
ss 7 3 99
::
:GetName
::==== Get the user's name ── IF they have enough "environment space."
cls :: ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
ss 6 1 1 1 80 78 32 /Welcome to Sparkle! Here's an example of Sparkle's GET INPUT Option./
echo.
echo.
echo.
echo We would like to address you BY NAME. Please type in your FIRST NAME below.
echo.
echo Please read Sparkle's manual for details on this powerful GET INPUT option.
echo.
ss 15 22 25 79 3
:==== draw a box over our scrolling banner using color 68 (red on red).
ss 6 18 3 24 78 -27 -250 / What should we call you? /
ss 12 22 15 78 15 1 / Please enter your FIRST NAME ── /YourName
cls
If errorlevel 100 goto EnvironError
if %YourName%X==X goto noname
goto Name_Is_Okay
:NoName
echo Name was blank. Please enter your FIRST NAME when we ask.
ss 15 12 23 13 3
Goto GetName
:Name_Is_Okay
ss 17 13 219 0 1 /Thank you %YourName% /
Goto Name_OK
:EnvironError
ss 6 1 1 1 80 78 32 /Sorry, we couldn't save your name./
echo.
echo.
echo We tried to save your name to an "environment variable." But
echo Sparkle reported an error. (That was polite, wasn't it?)
echo.
echo You may not have had enough ENVIRONMENT SPACE to SET (create)
echo an environment variable.
echo.
echo That's okay. No harm is done. We simply can't address you by name.
echo.
echo Please read Sparkle's manual for details on using the GET INPUT option.
echo And check your CONFIG.SYS file for a "SHELL=..." line. Look for the
echo "/e=###" option ("e" = environment space). Raise the number (###) by
echo 50 - 100. Then re-boot. Doing this might solve the problem.
echo.
pause
ss 18 5
::==== Use Sparkle's WINDOW option to print a CENTERED 1-liner !!!
:Name_OK
cls
ss 6 1 1 1 80 78 32 / Welcome to Sparkle %YourName% /
echo.
echo.
echo.
echo We hope you enjoy this demo. And we hope you enjoy Sparkle.
echo.
echo.
ss 15 22 25 27 3
::
::=============== The Main Menu for this demo
:: ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
:MainMenu
cls
::==== "run" our main menu -- an "executable .COM screen."
MainMnu1
::==== The next line tells Sparkle to find menu options starting in
:: row 11, column 28 through row 21, column 54. Highlight options
:: in color 94 (yellow on magenta). "1" means Vertical bar menu.
ss 2 11 28 21 54 94 1
cls
If errorlevel 6 goto End ::this will handle [Escape] as well as "Quit"
If errorlevel 5 goto MoreOptions
If errorlevel 4 goto Menus
If errorlevel 3 goto ScreenEffects
If errorlevel 2 goto BigEverything
If errorlevel 1 goto Intro
Goto MainMenu
::
::================= MAIN Menu Options ====================
::================= MAIN Menu Options ====================
::================= MAIN Menu Options ====================
::
::============================ Intro
:Intro ::▀▀▀▀▀
Features
ss 15 25 41 14 2
Goto MainMenu
::
::========= Demonstrate Sparkle's BIG! Fonts -- static and scrolling =========
:BigEverything
::========= Demonstrate Sparkle's BIG! Fonts -- static and scrolling =========
::
ss 16 1
ss 18 1 27
ss 6 1 1 1 80 78 32 / Sparkle's attention-getting Big! Font (tm) options : : : /
ss -4 10 1 29 219 /Big! Fonts
ss 7 5 99
ss 17 26 178 0 1 / /
ss 17 26 178 0 1 /Or, SCROLL messages ── in a NORMAL font. /
ss 17 26 178 1 1 /Or, SCROLL messages ── in a TALL, BROADWAY font. /
ss 18 4 64
ss 6 8 3 16 77 -27 -32 / Were some scrolling messages j-i-t-t-e-r-y? /
ss 5 10 7 27 / A PC' speed affects how text scrolls across the screen.
ss 5 12 7 27 /E-x-p-e-r-i-m-e-n-t with BOTH normal and Broadway fonts on different
ss 5 13 7 27 /PCs to see which options work best on YOUR PC, and across PCs.
ss 15 25 40 13 2
Goto MainMenu
::============= Demostrate Sparkle's m-a-n-y screen-enhancing effects =============
:ScreenEffects
::============= Demostrate Sparkle's m-a-n-y screen-enhancing effects =============
::====
:: BRIGHT background colors
::==== ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
cls
ss 11 0
ss -6 2 3 24 78 -3 177
ss -6 3 5 23 76 -131 176
ss -6 4 7 22 74 -192 176
ss -6 5 9 21 72 -211 219
ss -6 6 11 20 70 211 1
ss -6 7 12 19 69 -224 32
ss 4 8 14 224 219 /Bright!
ss 5 17 15 27 / This screen should blink like crazy. Press a key! /
ss 15 25 23 78 3
ss 11 1
ss 5 17 14 27 / We just turned BRIGHT Background Colors ON. IF you /
ss 5 18 14 27 / have an EGA│VGA monitor, colors should differ A LOT! /
ss 15 25 23 78 3
ss 18 9
ss 11 0
::====
:: Windows
::==== ▀▀▀▀▀▀▀
ss -6 1 1 25 80 27 1 /... This demonstrates Sparkle's very flexible WINDOW options ...
ss 6 3 4 5 24 112 1 / Frame Style # 1
ss 6 7 4 9 24 12 2 / Frame Style # 2
ss 6 11 4 13 24 123 3/ Frame Style # 3
ss 6 15 4 17 24 13 4 / Frame Style # 4
ss 6 19 4 22 24 26 -5 / Frame Style # 5
ss 6 3 55 5 77 112 254/Use any ASCII Char.
ss 6 7 55 9 77 12 21 / ASCII Char. # 21
ss 6 11 55 13 77 123 250 / ASCII Char. # 250
ss 6 15 55 17 77 13 240 / ASCII Char. # 240
ss 6 19 55 22 77 26 -15 / ASCII Char. # 15
ss 6 6 28 11 51 64 -32 / No Frame With Shadow
ss 6 15 28 20 51 64 32 / Or Without Shadows
ss 3 24 25 112 / /── Press any key to continue ──
cls
::====
:: Fades
::==== ▀▀▀▀▀
:: ==== turn dark blue backgroud colors ON
ss 16 1
:: ==== paint the screen blue (dark blue on VGAs)
ss 9 1 1 25 80 27 1
ss 17 29 178 2 1 /Fade screens out in many, dramatic ways... /
cls
::====Turn bright backgrounds ON
ss 11 1
ss 18 3 231 4
ss 18 1 7 4
ss 18 2 167 4
ss 18 4 31 4
ss 18 5 151 4
ss 18 6 215 4
ss 18 7 39 4
ss -6 5 5 20 75 30 -5 / Now watch the S-P-I-R-A-L fade-out effect!
ss 7 5 99
ss 18 9
ss 18 8 13 4
::====
:: Paint
::==== ▀▀▀▀▀
Cls
ss 6 1 1 1 80 78 32 / Sparkle's PAINT SCREEN option /
echo.
echo Here we're painting areas of the screen. You can paint anything from
echo a single character to the entire screen. And you can fill an area
echo with color, or paint a border around something. NOTE: If you have
echo a MONOCHROME monitor, you won't see ANY of the demos that use colors.
ss 9 10 4 14 80 18 1
ss 9 16 15 24 54 64 1
ss 9 8 70 20 75 39 1
: ===== Paint just the border here (thus the ending "0")
ss 9 7 35 23 50 94 0
echo.
Pause
::====
:: Reverse Color
::==== ▀▀▀▀▀▀▀▀▀▀▀▀▀
Cls
ss 6 1 1 1 80 78 32 / Sparkle's REVERSE COLOR option /
echo.
echo Now we'll REVERSE these colors -- reversing them 6 times each.
echo One use for this option is to draw attention to something on the screen.
echo.
ss 9 10 4 14 80 18 1
ss 9 16 15 24 54 64 1
ss 9 8 70 20 75 39 1
ss 9 7 35 23 50 94 0
Pause
ss 10 10 4 14 80 6 1
ss 10 16 15 24 54 6 1
ss 10 8 70 20 75 6 1
: ===== Reverse just the WHOLE THING here -- several colors will change!
ss 10 7 35 23 50 6 1
: ===== Now reverse EVERYTHING ON THE SCREEN !!!
ss 10 1 1 25 80 6 1
echo.
Pause
Goto MainMenu
::
::============= Demostrate Sparkle's MENU options =============
:Menus
::============= Demostrate Sparkle's MENU options =============
::
cls
ss 6 1 1 1 80 78 32 / Sparkle Offers THREE Types of Menus ── 2 with Mouse Support! /
echo.
echo.
echo.
echo ■ Sparkle offers VERTICAL Scrolling Bar Menus (the main menu is an example)
echo.
echo ■ Sparkle also offers HORIZONTAL Scrolling Bar Menus
echo.
echo ■ Finally, Sparkle offers ASK ── to get a user's choice, or simply to pause
ss 15 22 25 27 3
::
:==================== Demonstrate VERTICAL bar menus ===================
::
VertMenu
ss 2 4 7 22 37 112 1
cls
If errorlevel 9 goto QuitChosen
If errorlevel 5 goto DOSProgram
echo You chose a WINDOWS program.
goto Broadway_Menu
:QuitChosen
echo You chose to Quit. But of course we have another MENU example for you.
goto Broadway_Menu
:DOSProgram
echo You chose a DOS program.
:Broadway_Menu
ss 7 4 99
::
::==== Use Sparkle's MONITOR option to see if they have a VGA -- since
:: we're about to load a Broadway Screen Font which works ONLY on VGAs.
ss 8
If errorlevel 6 goto Bway_Font
goto HorizontalMenu
:Bway_Font
ss 15 12 4 78 3 / IF you have a VGA monitor ── WATCH for Sparkle's BROADWAY FONT !!! /
::==== turn ON our Broadway font
ss 19 1
VertMenu
ss 2 4 7 22 37 112 1
::
:==================== Demonstrate HORIZONTAL bar menus ===================
::
:HorizontalMenu
HoriMenu
ss 2 5 9 5 78 112 2
cls
If errorlevel 27 goto H_Escape
If errorlevel 5 goto H_Word
If errorlevel 4 goto H_DOS
If errorlevel 3 goto H_Windows
If errorlevel 2 goto H_Fun
echo You chose dBASE.
goto Demo_ASK
:H_Escape
echo You pressed Escape.
goto Demo_ASK
:H_Word
echo You chose to run WORD.
goto Demo_ASK
:H_DOS
echo You chose to go to DOS.
goto Demo_ASK
:H_Windows
echo You chose to run Windows.
goto Demo_ASK
:H_Fun
echo You chose to have a little FUN!
::
:==================== Demonstrate ASK ===================
::
:Demo_ASK
ss 7 8 99
ss 19 0
ss 18 6
ss 6 1 1 13 80 32 -32
ss 6 2 3 11 77 79 -1 / Finally, Sparkle offers ASK -- for text-mode OR graphics-mode screens.
ss 5 4 13 11 / Press a key to select the program you'd like to run. /
ss 5 7 17 11 / dBASE Sparkle P-Screen /
ss 5 9 17 11 / Quicken WordPerfect Lotus 123 /
ss 5 24 5 11 /Notice that Sparkle accepts ONLY one of the keys mentioned (or Escape).
ss 3 18 18 112 /DSPQWL / Press [D], [S], [P], [Q], [W] or [L] ── /
goto MainMenu
::
::================= 2nd Menu ====================
::================= 2nd Menu ====================
::================= 2nd Menu ====================
:MoreOptions
::====
MainMnu2
ss 2 11 28 24 54 94 1
cls
If errorlevel 5 goto MainMenu
If errorlevel 4 goto DOSVersion
If errorlevel 3 goto View_File
If errorlevel 2 goto Prompts
If errorlevel 1 goto Sounds
Goto MoreOptions
::
::============================ Sounds
:Sounds ::▀▀▀▀▀▀
::====
ss 6 11 30 17 77 79 1 /Sound Effects
ss 5 13 37 79 /Here are a few of the many sound
ss 5 15 37 79 /effects that Sparkle offers you.
echo on
ss 1 4
ss 1 5
ss 1 6
ss 1 7
ss 1 8
ss 1 9
ss 1 11
ss 1 12
ss 1 13
ss 1 14
echo off
ss 3 24 1 112 / /── Press any key to continue ──
cls
ss 6 10 30 17 77 79 1 /Or play sounds over & over.
ss 5 13 40 79 /Press a key to stop. Or wait
ss 5 14 40 79 /until we do this 5 times.
ss 1 6 4
cls
ss 6 11 30 17 77 79 1 /
ss 5 13 37 79 /Would you like to listen to the
ss 5 15 37 79 /William Tell Overture? (Yes\No)
ss 3 24 28 112 /YN /── Press [Y]es or [N]o ──
If Errorlevel 89 goto _WmTell
Goto MoreOptions
:_WmTell
ss 1 99
Goto MoreOptions
::
::==== Demonstrate different PROMPTS
:Prompts
::
Cls
ss 6 1 1 1 80 78 32 / Sparkle's attention-getting PROMPTS /
echo.
echo.
echo There are many times in batch files when you want to Pause and wait
echo for users to press a key. DOS offers a Pause option, and Sparkle
echo also offers an ASK option. But Sparkle also offers other, dramatic
echo options. They let YOU control WHAT you see, WHERE it is, and what
echo COLORS to use.
echo.
echo You've seen several options earlier. Press a key to see them all.
echo.
echo NOTE: PRESS A KEY as EACH PROMPT appears.
echo.
Pause
echo.
echo.
echo Here's a TWIRLING BATON =====
ss 15 17 39 14 1
echo.
echo Here's an EXPLODING BUTTON ==
ss 15 19 39 30 2
echo.
echo And then there are BANNERS ===
ss 15 21 39 79 3
echo.
echo Or choose YOUR OWN scrolling banner ===
ss 15 23 46 79 112 / Display any message you like! /
Goto MoreOptions
::
::================ Demonstrate View File ================
:View_File
::================ Demonstrate View File ================
::
Cls
If exist SS.Txt goto View_Doc
echo.
echo Sorry, I was about to demonstrate VIEW FILE by displaying Sparkle's manual.
echo But SS.Txt is NOT here. Press a key to return to the menu.
echo.
Pause
Goto MoreOptions
::
:View_Doc
::
::1st, "fade" the screen out to create some color
ss 18 6 47 4
ss 6 1 1 1 80 78 32 / Sparkle's VIEW FILE option! Let's browse through Sparkle's manual! /
::2nd, "explode" a window inside which we'll display the file
ss -6 4 5 23 79 8 32
ss 6 25 1 25 80 78 32 / Press cursor pad keys to scroll through the file. [Escape] = Quit /
::finally, display our file inside the window
ss 14 3 2 22 77 27 /SS.Txt
Goto MoreOptions
::
::====== Demonstrate Getting DOS version/Monitor Type ======
:DOSVersion
::====== Demonstrate Getting DOS version/Monitor Type ======
:
Cls
ss 6 1 1 1 80 78 32 / Which version of DOS are you using? /
echo.
echo.
echo It sometimes helps to know which version of DOS is being used.
echo For example, certain programs can't run under early DOS versions.
echo Or you might need to know if certain DOS features are available.
echo.
echo.
ss 7 12 99
ss 13
If Errorlevel 63 goto Dos_63_Plus
If Errorlevel 60 goto DOS6
If Errorlevel 50 goto DOS5
If Errorlevel 40 goto DOS4
If Errorlevel 30 goto DOS3
If Errorlevel 20 goto DOS2
If Errorlevel 10 goto DOS1
:Dos_63_Plus
ss 17 14 177 1 / Sparkle reports you're using a version of DOS higher than 6.2. /
goto Which_Monitor
:DOS1
ss 17 14 177 0 1 / Sparkle reports DOS 1.x is being used. /
goto Which_Monitor
:DOS2
ss 17 14 177 0 1 / Sparkle reports DOS 2.x is being used. /
goto Which_Monitor
:DOS3
ss 17 14 177 0 1 / Sparkle reports DOS 3.x is being used. /
goto Which_Monitor
:DOS4
ss 17 14 177 0 1 / Sparkle reports DOS 4.x is being used. /
goto Which_Monitor
:DOS5
ss 17 14 177 0 1 / Sparkle reports DOS 5.x is being used. /
goto Which_Monitor
:DOS6
ss 17 14 177 0 1 / Sparkle reports DOS 6.x is being used. /
::
:Which_Monitor
::
ss 8 99
if errorlevel 3 goto Color_Monitor
cls
ss 17 15 178 0 /Sparkle reports you have a MONOCHROME monitor. /
Goto MoreOptions
:Color_Monitor
ss 16 1
ss 18 6 26 4
ss 17 26 178 0 /Sparkle reports you have a COLOR monitor. /
ss 16 0
Goto MoreOptions
::
::==================== End ====================
:End
::==================== End ====================
cls
If not exist Phone.Com goto End2
Phone
ss 1 88
ss 15 6 35 48 3 /Call (415) 863-0530 /
ss 18 8 13 6
::
:End2
::
cls
ss 6 1 1 1 80 78 32 / Thank you for trying Sparkle %YourName%/
echo.
echo.
echo ■ We hope you enjoyed this demo %YourName%
echo.
echo ■ Type SS ─┘ for a summary of Sparkle's many options
echo,
echo ■ And please browse through Sparkle's manual for details on your many options
echo.
echo.
echo Finally, we hope you enjoyed the examples of our "executable .COM screens:"
echo the PHONE, the MENU SCREENS, etc.
echo.
echo We created these screens using P-Screen, another of our programs. With
echo P-Screen you can create a-n-y type of text-mode screen you like, with a-n-y
echo colors, and with any of 20+ Big! Fonts (tm) that we include.
echo.
echo Because P-Screen is such a useful companion to Sparkle, we offer a "package
echo discount" when you order them together. See TO-ORDER.Txt for details.
echo.
echo Goodbye %YourName%
echo.
echo.
:TheEnd
:==== turn OFF any screen options we may have set: Bright BG, Dark Blue, B'Way
ss 11 0
ss 16 0
ss 19 0